(library (io)
  (export read-line)
  (import
   (except (rnrs base)
           let-values
           map
           error)
   (only (guile)
         lambda* λ
         current-input-port)
   (ice-9 textual-ports))

  (define read-line
    (lambda* (#:key (input-port (current-input-port)))
      (get-line input-port))))
